C 10 


RRR eR Re ee 
ee ee 
Ck ak ek ae ce ee oe ee a oe wee ane aed oe coe a rg 
ieee 


aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa acoa 
aaa aaa 
SoGO00OGOO00GO0G0G0G0R008aR 
So0O0O0GOGoOOG000000000a8Ra 
SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
wud ada 
wutud Lk ee ha 
a Ld th ed 
dd A hd bad Ra dd ol 
ed bad Aad tu had 
bd a kd Lh Ah ed 
tks kd rezeeneey Ve TeCnee) 
ad Ld Ad kd Ad 
a Ld ad ed hs a 
aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
kad LOS LD tad Ld Abs 


ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


*eF ILE**1De*TICHAR 


TITTTTTTT III! CCCCCCCC OHH HH AbDAaA RRRRRRRR 

TTTTTTTTITT W111! CCCCCCCC =H HH AAAAAA RRRRRRRR 
TT I] cc HH HH AA AA RR RR 
TT I] cc HH HH AA AA RR RR 
TT I] cc HH HH AA AA RR RR 
TT I] cc HH HH AA AA RR RR 
TT I] cc HHHHHHHHHH = AA AA RRRRRRRR 
TT I] cc HHHHHHHHHH = AA AA RRRRRRRR 
TT I] cc HH HH AAAAAAAAAA RR RR 
TT I] cc HH HH AAAAAAAAAA RR RR 
TT I] cc HH HH AA AA RR RR 
TT I] cc HH HH AA AA RR RR 
TT III] ccCCCCCC =H HH AA AA RR RR 
TT 1111 cccccccc HH HH AA AA RR RR 

LL III] SSSSSSSS 

LL W111! SSSSSSSS 

LL I] $$ 

LL I] S$ 

LL I] SS 

LL I] $s 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] $$ 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 


7 
EDTSTICHAR = input a character 1bes Sep-1 3:54 VAX-11 Bliss-32 V e 1 
° 14-Sep 71382 9}: 33: 749 DISK KSVMSMASTER: th T.$ + saciricuan. BLI;1 Pag (1) | 
MODULE EDTSTICHARN( \"PUt ® Character’ t Breut @ shorece | 
! In a character 
IDENT = *v04-000" Pur file: TICHAR.BLI Edit: REM1018 | 
= 


BEGIN 


RRR AAR AAA AAAAE AAA AAAEAEEEAA AA AEAAR AAA AAAAAAAAAAARAAAAAAEREREAeETe 


3 ; : 
ae 
3 5 : : 
; $ 1 3 
; 8 : : 3 * 3 
; s 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . F 
rs 10 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * | 3 
3 1) 1] : ~ ALL RIGHTS RESERVED. * : 
Py . ® e 
2 ig ig 1 Ie ris SOFTWARE IS FyRn SHED UNDER A LICENSE AND MAY BE USED AND COPIED * | : 
3 14 14 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | F 
3 15 015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
g 18 18 1 ie (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
$ 1 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; 38 OO18 1 is TRANSFERRED. . ; 
° :* a 
3 0 0020 1 ! phe oe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 3 
3 1 0021 1 !# SHOUL NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
; ¢ 80 ¢ : ° CORPORATION. . : 
° 7” - 
3 26 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * > 
3 5 0025 1 = SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ~ : 
: 3 e 1 it ; 
3 8 0028 1 Nee ae eee area ee AAAAAAAEE TEA AAA AAA AA AAA AATAAAARAAAAAAAAAEREAERARE EE $ 
3 9 0029 1! 
; : 0031 1 'e+ : 
3 § O36 : FACILITY: EDT -- The DEC Standard Editor : 
; 4 0034 | ABSTRACT: 

: $ Baas : Input a character. 

; : 4 ' ENVIRONMENT: Runs at any access mode - AST reentrant 

; 40 9040 ! AUTHOR: Bob Kushlis, CREATION DATE: June 9, 1979 

: 4¢ ‘ i MODIFIED BY: 

Fer 4 1 | 1-001 - Original. DJS 18-FEB-1981. This module was created by 

; 645 me outract ing routine EDT$$TI _INPCH from module TINPUT. 

; 46 Boeg 1! 1-008 Regularize headers. JBS opener 4391 

3; § 0047 1! I- - Revise journaling. JBS 22-Jun-1 

; 48 Rpg 1! 1-004 = Fix coors ye file. JBS Fe ut-1981 

3 4 + : 1-005 - o ae yor h gt Journal record in the middle of an escape sequence. 

3 -Jul- 

; af 51 1! I- - mk, 0 if he journal file ends. JBS 01-0ct-1 at 

3 § 2 1 ! 1-007 = Use the global prompt string, if ; 3) ied. 1380 1-0c t-1981 

3 53 1! 1- 4 - Remove length of prompt str As E 23-0ct-19 

3 & 54 1! I- - Revise autorepeat logic, putting tt “- a subroutine. JBS 30-Jan-1982 

3 55 Bee ' 1-010 = Flush fhe terminal buffer after turning off Autorepeat. 

: 38 3§ 1 § 1-011 - Add EDTS3a. JOU_VALID. JBS 09-Apr-1982 


} 
JBS 31-Jan-1982 


aug escapee ame? bmn IESREDCIRBE QU:SE:ES  YCDTABASRHER2 YS °SP6Srrcmae-ou1ss?™% 
i $ : 1: i: - Alloy or 8-bit key boards. JBS ert 
1 


' 

: d $S3 for “bit k eel 4gs $ 20- 
; - peesee Ape ay Ae BS 

1-01 . Add V VT820 a M. cone jiguenal fi 

| 1- i$ - ste Pee gate 1983 maintain n Eots$6_11 TIN Sitcre aarvie /RECOVERY mode. 
; 

1 


i 1-018 - neeee aaa coe to reset the “C counter & logic if about to read 
: ANOTHER journal record. REM 18-0ct-1983 


Wn 
at es 


SLSALAR 


' 
a 
i 
a eS 


ao 


w> a i i ie il i Di Rd te it Rad Ret tt Rie et Bd Be ei i te ek te eh eh Ded Reh Dei te ek ek eh te Be eh) 


| 
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li 
MASTER: CEDT 
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v cw < - a se we 
oe o - < *° a 2 oe z > | 
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OB ~~ wm oe ws oe ee oe pe a . 
— eo wv wo ” vw wv o uw 
v we = a= 22 w <= « 2 uu © 
oe) vo =e a) ”n w w £ 
oc ~ ow —- -— 1 _ —- - worew OoOFweae 
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c us w ar = we Oo _ ” = 
- +> J = «£a ) <= « a 4 w 
- = — maw wv — <« wy a -_ 
‘ao & > 3 z > « = So 4 
c 2 - cso « - oso @ w w 
azo w © we 
; pe Pee eee ac “ —omoes a an em em meme meme m meme memememes 
~ rd Cl el el el el el el el ll el ek el el ee ee ee ee ee oh eh ek ed 
-«e 
PH] — DOK OM TF INTNOP- DFO OR. DOOK MIM TNOR. DOO UMS 
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eS 


EDTSTICHAR T HAR = input a character 18.<8 Sep-1984 3: VAX-11 Bliss-32 V Pa 4 
$b42000 T _INPCH = fae @ character 14- ~8ep-1984 9}: 32:25 DISKSVMSMASTER: a + SRCSTICHAR. BLI;1 _ (3) 
105 7 ZSBTTL “EDTSSTI_INPCH = input a character’ 
: GLOBAL ROUTINE EDTSSTI_INPCH ( ! Input a character 
f pr i Where to store character 


This routine gets the next character from input. If recovery mode is on 
then the character is read from the journal file. If not, then we check 
to see if the character was read previously, and take it from the type- 
ahead character; otherwise, we read a chraracter from the terminal. If the 
character is not coming from the journal file, it is written to it. 


i FORMAL PARAMETERS: 


—> i) ss 


VFWNM—O OCONOUS WN “OO ONOu eS 


BUF the address of a fullword in which the character is returned. 
i IMPLICIT INPUTS: 
i EDT$$G_RCOV moo 


DT$$G_K_AUTRP 
EDTS$G_ “TIN, Na JRECEND 


ttt tutta tot ttt ttt tate: 


LESRENLSSSLSAE 


$36.8 
$$T 


D 
TS$T_T TIN ~INREC 
TS$A_TIN_IBUFPTR 
TS$$T_PMT_KPD 
TSST pn PMT" NOKPD 


C 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 E 
1 

1 E 
1 E 
1 E 
1 E 
if 
: : EDTS$G_KPAB 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 


] 
'e4 | 
! FUNCTIONAL DESCRIPTION: 
D 
DT 
DT 
D 
i) 
D 
D 


' 
' 
' 
' 
| 
$ 
' 
! 
t 
' 
q 
' 
! 
! 
' 
' 
] 
' 
] 
' 
' 
' 
i 
4 
1 
} 
: IMPLICIT OUTPUTS: 
: EDTS$G_ My IRECLEN 
; EDTS$$G_R D 
i EDTSSA_ TIN. IBUFPTR | 
; EDT$$G_JOU_VALID 
EDTS$G_ TINT ~OBUFPOS 
} ROUTINE VALUE: 
1 = got a character, 0 = end of journal file 
SIDE EFFECTS: | 
: May turn off auto-repeat. 
' 

| 


OOWNOVE WN "OC O@NOUNE WOO 


ee ee a a ce ee ee ce et ee ee ee ee ed nd ed od ed 


CS EEE SSS SLL 
— 
See” ae” fem Dita, itn ttn ite De te te ie Se i i te te bt ee ee i 


EEPROM PONNONNDNY 2 ee 


—OOONO NESW "OO OONO US WN OO 0O@ 


BEGIN 
EXTERNAL ROUTINE 
edt$$cir_cc_: NOVALUE, ' Clear “*C counters & logic 
EDTS$$RD JOUTXT i Read a text record from the journal file 
EDT$$OUT_FMTBUF , 
EDTSSFMT“LIT, 


Be Se Be Se Se Se Se Se Se Se Be Se Se Se Fe Se Be Se Be Se Se Fe Ge Ge FH Fe Ge Ge FH Se Se Ge Ge Se Ge Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Ge Fe Fe Se Se Sees 


carer ine 


a a ed ed a od dd od od 


BNVAAP WH OSHIRAP WW SOBIRAR ML OOS TEM E WI SOSA RUN OO a UA ROMO 


SOOOSOOOOOOOSOOSOSOOSOOSOOCOCOOOSOSOSSOSSOSOCOCOOCOOCOCOOOOCOCOOOOCOOOOOOOOoOOoOO Omm 


Se an Sin is in ie in Be See te i i ie tee i i ie i ee ee i i i te 


WI 


~~ 
= 
—OOe 


PAAEAPAAEAAPA AMIN II 


NOUS WN (OC OD NOU EW O OONOUE WP 


SAN NN 


> 


Wr —O Oe 


NOuw 


C 

1 

‘ 
' 
' 

4 

4 

4 

4 

4 

4 

4 

| 

4 

4 

4 

4 

4 


HAR = in 


INPCH 


'¢ 


'¢ 


'¢ 


file. 


'¢ 


if. 
THEN 


x *- character 


put a character 
DTSSTI_GETCH, 
DTSSTI_BUFCH : NOV 
DT$$TI_ENBLAUTREP 


PTR 
LEN, 
C. 
END 


_OBUFPOS, 
VALID; 


SESSCRChopeeoee PM 


i Check for recovery mode. 


EDT$$G_RCOV_MOD 
BEGIN 


: VECTOR C, 
: VECTOR C, BYTE), 


ston 
1 ~ep-1 


LUE, 
: NOVALUE; 


: REF VECTOR C, BYTE) 


BYTE) 


3B¢ 93:20:25 DiSksumsmaste 


7 re 


Dw 
ee f[ 
m< 


Enable and disable autorepeat 


Recovery mode flag 
Auto repeat {lag 
Type ahead counter 
Type-ahead esr ing 

! Pointer into journal input buffer 
Length of journal input record 
Journal input record buffer 
Pointer to end of journal input buffer 
Counted ASCII string for keypad mode prompt 
Counted ASCII string for nokeypad mode prompt 
1 = keypad change mode, 0 = nokeypad change mode 
Position in journal output buffer 
1 = journal record is valid 


! If at end of the input buffer, we will be reading another record. So 
! we must first reset the CC counters and associated logic. 


IF CHSPTR_EQL (.edt$$a_tin_ibufptr, .edt$$g_tin_irecend) THEN 


edt$$clricc (); 


i Make sure we have a character in the buffer. 


Pad Pa 
DT. SRCJTICHAR.BLI;1 


ge 


WHILE. (CHSPTR_EQL (,EDTSSA_TIN_IBUFPTR, .EDTS$G_TIN_IRECEND) OR (.EDTSSA_TIN_IBUFPTR EQL 0)) DO 


No characters left, try to read a new record from the journal 


a cal (EDTSST_TIN_INREC, EDTS$G_TIN_IRECLEN) 


RETURN (0); 


INREC, ,€DTS$G_TIN_IRECLEN); 
INREC, 0); 


! No more records in the journal file, arrange to return to the root. 


5 } 


(3) 


d 8 
HAR = inpus 8 character 1o~se0= 138% 91:33:38 y 


4. | 
INPCH put a character Sep 32 V4.0 ge 6 


shes Pa 
:CEDT.SRCITICHAR.BLI;1 (3). 


eRySTICnan f 


$ 


og 
aot 


END; 
‘6 | 
Return next character from the journal buffer. 


.BUF = CHSRCHAR_A (EDTSSA_TIN_IBUFPTR); | 
EDT$$G_TIN_OBUFPOS = .EDTS$G_TIN_OBUFPOS + 1 


ELSE 


> > >> >> >>>. 
SEEKS 
WE wr 


24 
Se 


Not in recovery mode, check for type ahead. | 
BEGIN | 


i If there are any characters in type-ahead, use the first. | 
Otherwise block waiting for the user to type something. 
he 

} 


S2SFS 
NOUS wt 


¢ 
1 
4 IF (.EDT$S$G_RDAHED GTR 0) 
3 HEN 
2 = BEGIN 
2 Return the oldest typed ahead character, and shuffle the buffer. 
4 EDT$$G_RDAHED = .EDTS$$G_RDAHED - 1; 
2 -BUF = CHSRCHAR (EDTSS$T_RDAHED); 
? IF (.EDTSSG_RDAHED GTR 0) ! 
2 EDTSSCPY_MEM (.EDTSS$G_RDAHED, CHSPLUS (EDTSST_RDAHED, 1), EDTS$T_RDAHED); 
4 END 
3 ELSE 
2 ; BEGIN 
4 Read the character from the terminal. Prompt first if requested. 
2! 
4 LOCAL 
? PROMPT_ADDR : REF VECTOR (8, BYTE); 
4 PROMPT_ADDR = (IF .EDTS$G_KPAD THEN EDTSST_PMT_KPD ELSE EDTS$T_PMT_NOKPD); 
5 IF (.PROMPT_ADDR (0) GTR 0) 
4 THEN 
BEG] 
ED 
ED 
? END; 
4 EDTSSTI_GETCH (.BUF); 
| END; 


AAW AAA AAAI RIPINIPINININIIA 2 OOO 


PEAR OOODNOAUN EWR 0 ONO UEWN (OC OONOU SW 0@ 


GIN 
TS$SFMT_LIT (PROMPT_ADDR [1], .PROMPT_ADDR (0)); 
T$SOUT“FMTBUF (); 


Be Be Se Se Se Be Se Se Ge Be Be Se Se Ge Fe Se Ge Ge Ge Ge Fe Ge Fe Se Fe Ge FH Se Ge Ge Ge Se Ge Se Ge Ge Se Fe Ge Ge Se FH Se Ge Ge Se Ge Ge Se Se Se Se Se Se Se tee 
od 
SOOCOOOSOOOSSOOCOSCOSSOSOOCOSOOSOOOOSOOSOOSOOSOOOOCOSOOOOCOOOOCOOOOOCOOOOOOOOOO 


WRN ISSE SARE Sewer ES 


ere 


'¢ 
Make sure the character is journaled. 


EDTSTICHAR EDTSTICHAR = input a character 16-5e Sep-1984 54 VAX-11 Bliss-32 V4.0-74 Pa a 
bc +008 EDTSst i INPCH = Inout @ character ety 7 9}: i 49 DIEKSVMEMASTERSCEDT SRCITICHAR.BLI:1 ne | 
; 27 DT$$T1_BUFCH (; -BUF) ; 
; r of 2 EDTSSG_ JOU_VALID = | ; 
: 8 4 i If the character was an escape, CSI or $$3, turn auto-repeat off. | : 
; ! This also disables dumping the journal buffer, so that a ‘ 
: ; ; Journal record can contain an entire escape or control sequence. ‘ 
; L 0854 3 x1F SUPPORT_vT220 | : 
3 5 2? ZTHEN : 
4 te IF ((. BUF EQL ASC_K_ESC) OR (..BUF EQL ASC_K_CSI) OR (..BUF EQL ASC_K_SS3)) ; 
; 89 y : XELSE | ; 
: 291 U 0861 IF (..BUF EQL ASC_K_ESC) : 
3 38 U ¢ THEN ; 
RE pm 2 
: 295 B65 4 BEGIN : 
; 96 866 4 EDT$$T1_ENBL AUTREP. (0); ; 
3; @ 4 EDTSSOUT. FMT BUF 3 
; 98 dees END; | ; 
: 0¢ 087¢ RETURN (1); | : 
; wv 087 END; ! of routine EDTS$TI_INPCH | : 
TITLE EDISTICHAR EDTSTICHAR - input a character : 
[IDENT \V04- : 
-EXTRN EDTSSCLR_CC, EDTSS$RD_JOUTXT : 
-EXTRN EDTSSOUT—FMTBUF ; 
-EXTRN EDTSSFMT-LIT, EDT$$TI_GETCH ; 
“EXTRN EDTS$TI_BUFCH, EDT$STI_ENBLAUTREP ; 
-EXTRN EDT$$G_RCOV_MOD : 
“EXTRN EDT$$G_K_AUTRPT ; 
-EXTRN EDTS$G-RDAHED, EDTSS$T_RDAHED ; 
“EXTRN EDTSSAZTIN_IBUFPTR | : 
TEXTRN EDTS$G-TIN-IRECLEN : 
“EXTRN EDTS$ST-TIN-INREC | ; 
*EXTRN EDTSSG_TINTIRECEND ; 
“EXTRN EDTS$ST =PAT KPD EDT $$T_PMT_NOKPD ; 
SEXTRN EDTS$G-KPAD, EOT$$G_TIN_OBOFPOS F 
-EXTRN EDTS$$G_ HOU VALID | 3 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 | : 
OFFC 00000 -ENTRY EDTSSTIAINPCH, Save R2.R3.RGRS.ROWRT RB, 0677. : 
: 
B 000000006 9€ 0000 MOVAB EDT$$G_TIN JRECL N, R11 ; 
A G 9—E 000 MOVAB EDTSS$T-RDARED, R10- : | 
9 G 9E 019 MOVAB EDTS$$G~ ~RDAHED : 
8 6 9— 0001 MOVAB = EDT$$T =i hde Rs ; 
G 9€ OO01E MOVAB EDTSSG"TIN“IRECEND, R7 : 


fF 8 
EDTSTICHAR - on et a character 16-Sep-1984 01:53:54 VAX-11 Bliss-32 V4.0-74 
F042000 ‘aS. a character 18-808- 1382 93:32:25 SI EKSUMGMASTERSCEDT  SRCSTICHAR.BLI:1 
5 G 9 5 MOVAB EDTS$SA_TIN_IBUFPTR, R6 
23 iitdiitts 5 ¢ BLBC  EDT$$G-RCOV_MoD, 5$ 
67 b CMPL EDTSSA_TIN. TBUFPT R, EDT$$G_TIN_IRECEND 
BNEG ; 
000000006 9 FB CALLS # EDTSSCLR cc 
$ D F 1$: MOVL  EDTS$A TIN_IBUFPTR RO 
6 ny 4 CMPL RO, EDT$$G-TIN_IRECEND 
ee 4 BEQL = 2 
0 D 4 TSTL RO 
1D 1 49 BNEG 4 
0900 8F BB 00048 2$ PUSHR #°M<RB,R11> 
000000006 09 2 FB 4F CALLS #2, gDfSSRD_JoUTXT 
OOA i 8 Sku , $ ; 
0 6 i 5c 3 MOV EDTS$$T_TIN_INREC 
67 0 6 3 O05 ADDL3 EDT$$G~ “TINCIREELENT OR EDT$$G_TIN_IRECEND 
bh 6 9 9065 MOAB EDTSST_ TINT INREC, Eoissat TIN_IBUFPTR 
50 6 po itt 4$: MOVL EDTS$SA_TIN_IBUFPTR, RO 
04 BC 60 9A 00068 MOVZBL (RO), SBUF~ 
66 D6 O06 INCL EDT$$A_TIN_IBUFPTR 
000000006 00 b6 0071 INCL FDISS6_ TINZOBUF POS 
008A 31 00077 BRW 2$ 
69 DS OOO7A 5$ TSTL  EDT$$G_RDAHED 
le 15 0007¢ BLEG 6=s-«46$ 
6 7 007E DECL § EDT$$G_RDAHED 
04 BC 6A 9A 00080 MOVZBL EDTS$S$T-RDAHED, a@BUF 
50 69 00 0084 MOVL  EDTSSG"RDAHED, RO 
40 1 0087 BLEQ 10$ 
6A 01 AA 0 28 00089 MOVC3 RO, EDTS$$T_RDAHED+1, EDTSS$T_RDAHED 
9 11 0008 BRB 10$ 
99 000000006 00 Eg 0090 6$ BLBC  EDT$$G_KPAD, 7$ 
0 000000006 00 9 9097 MOVAB EDTSST_ PMT _KPD, PROMPT_ADDR 
50 000000006 00 9 Box 7$: MOVAB EDTSST_PMT_NOKPD, PROMPT_ADDR 
e273 Saatg OF gage fgroner_s00m 
7E 60 9A OOOAB MOVZBL (PROMPT ADDR) -(SP) 
01 AO 9F OOODAE PUSHAB 1(PROMPT ADDRS 
000000006 00 0 FB 000B1 CALLS a, EDT OTSStA LIT 
000000006 00 FB 00088 CALLS @ EDTSSOUT EMTBUF 
04 AC DD OO0OBF 98 PUSHL BUF 
000000006 00 01 FB C8 CALLS #1, EDTS$TI_GETCH 
04 ( DD 000CS 10$:  PUSHL . 
0000006 00 F ce CALLS #1, EDTS$$TI_BUFCH 
00000006 00 1 0 9D MOVL ; EDT$$G_JOU_VALID 
a eR aes Be: ae 
00000098 = &F 04 BC p4 0 CMPL aBuF, #155 
0000008F &F 04 c i 7 Peer ae F, #143 
Hb 12 oor? ones TS 
900000006 f FB OO00F6 CALLS #1, EDT$$TI_ENBLAUTREP 
G 0 FB FD CALLS #0, EDTS$OUT_FMTBUF 
1 p 194 12$: MOVL #1. RO 
4 00107 RET 


Page 
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-32 V4.0-74 
chbt SReSTICHAR.@Lt:1 


OB78 : ! <BLF /PAGE> 


— 


4H 8 
EDTSTICHAR HAR = inpu a@ character 16-Sep-1984 01:53:54 VAX-11 Bliss-32 V Pa 
42000 presi _INPCH as a character 18-808-1 382 9}: 4:49 DISKSVMSMASTER: th + SRCSTICHAR. BLI;1 — ( 


; 308 O87 gy ! of module EDTSTICHAR 
; 48 0 ELUDON 


se 
“oO 


PSECT SUMMARY 


Used: ages 
; cee Bey te 


3 Name Bytes Attributes : 
; LEDTSCODE 267 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ; 
: Library Statistics ; 
Sar Detail al ea Ne ee. ce, wae SyYEROLE coocence Pages Processing 3 
; File Total Loaded Percent Mapped me : 
; $255$DUA DT.SRCJEDT.L32;1 377 4 1 4 0:00. ; 
; BERRA: EEDT: SReJpsect $.L32;1 g 1 50 : $5 300:4 : 
; $255spuac8:CEDT. SRCISUPPORTS.L $2; 1 1 50 5 00:00.1 ; 
; COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=L1S$:TICHAR/OBJ=0BJ$:TICHAR MSRC$:TICHAR.BLI/UPDATE=(ENHS$: TICHAR) 

3; Size: 267 ogy ; 0 data bytes 

; Run +. F 

; Elapsed T aie 

: tty Min: 3 7 

; Nememay Ack ity | 
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